Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping
Routine: DVBCQGY1

# DVBCQGY1.m

Go to the documentation of this file.
```DVBCQGY1 ;;ALB-CIOFO/SBW - Gynecological Conditions Questionnaire ; 7/JUL/2011
```
``` ;;2.7;AMIE;**174**;Apr 10, 1995;Build 2
```
```EN ;
```
``` D:'\$D(IOF) SETIOF W:(IOST?1"C-".E) @IOF
```
``` S DVBAX="Gynecological Conditions",TT=40-(\$L(DVBAX)\2),PG=1
```
``` W ?TT,DVBAX
```
``` W !?40-(\$L("Disability Benefits Questionnaire")\2),"Disability Benefits Questionnaire",!
```
``` W !?1,"Name of patient/Veteran: ",\$S(\$G(NAME)]"":NAME,1:"_______________________")
```
``` W ?45,"   SSN: ",\$S(\$G(SSN)]"":SSN,1:"________________"),!!
```
``` S DIF="^TMP(\$J,""DVBAW"",",XCNP=0
```
``` K ^TMP(\$J,"DVBAW")
```
``` F ROU="DVBCQGY2","DVBCQGY3" S X=ROU X ^%ZOSF("LOAD")
```
``` K DIF,XCNP,ROU
```
``` N LP,TEXT
```
``` S LP=0,STOP=0
```
``` F  S LP=\$O(^TMP(\$J,"DVBAW",LP)) Q:(LP="")!(STOP)  D
```
``` .S TEXT=^TMP(\$J,"DVBAW",LP,0)
```
``` .I (TEXT'[";;")!(TEXT[";AMIE;")!(TEXT["CIOFO/") Q
```
``` .I TEXT["^TOF^" D HD2
```
``` .I TEXT["^END^" S STOP=1 Q
```
``` .W:TEXT'["^TOF^" \$P(TEXT,";;",2),! I \$Y>56 D HD2
```
``` K ^TMP(\$J,"DVBAW"),DVBY,TEXT,STOP,LP,PG,DVBAX,X
```
``` Q
```
``` ;
```
```HD2 ;
```
``` S DVBY=\$O(^TMP(\$J,"DVBAW",LP))
```
``` Q:DVBY=""
```
``` Q:\$G(^TMP(\$J,"DVBAW",DVBY,0))["^END^"
```
``` S PG=PG+1 W @IOF,!,"Page: ",PG,!!,"Disability Benefits Questionnaire for ",\$G(NAME),!
```
``` W "Gynecological Conditions",!!
```
``` Q
```
```SETIOF ;  ** Set device control var's
```
``` D HOME^%ZIS
```
``` Q
```
{"ft_lang_label":"__label__en","ft_lang_prob":0.5259085,"math_prob":0.97207594,"size":2912,"snap":"2021-43-2021-49","text_gpt3_token_len":1245,"char_repetition_ratio":0.13755158,"word_repetition_ratio":0.06430868,"special_character_ratio":0.42479396,"punctuation_ratio":0.28961748,"nsfw_num_words":0,"has_unicode_error":false,"math_prob_llama3":0.970347,"pos_list":[0],"im_url_duplicate_count":[null],"WARC_HEADER":"{\"WARC-Type\":\"response\",\"WARC-Date\":\"2021-11-29T14:33:54Z\",\"WARC-Record-ID\":\"<urn:uuid:1a89cc0a-7e4f-41d4-9f03-d27722c33431>\",\"Content-Length\":\"18961\",\"Content-Type\":\"application/http; msgtype=response\",\"WARC-Warcinfo-ID\":\"<urn:uuid:243a7ac2-fb2c-4db4-83c1-3c931d454cc7>\",\"WARC-Concurrent-To\":\"<urn:uuid:d6cc704a-9e06-43c2-a1d1-6550a7d97777>\",\"WARC-IP-Address\":\"156.96.113.49\",\"WARC-Target-URI\":\"https://vivian.worldvista.org/dox/Routine_DVBCQGY1_source.html\",\"WARC-Payload-Digest\":\"sha1:54E4HXEVOAZVJDZNU66DOEPP6X5G5RL3\",\"WARC-Block-Digest\":\"sha1:UK4MJ5ZZ4VOAGGCHEBJLL3AMZTBNKFGG\",\"WARC-Identified-Payload-Type\":\"text/html\",\"warc_filename\":\"/cc_download/warc_2021/CC-MAIN-2021-49/CC-MAIN-2021-49_segments_1637964358774.44_warc_CC-MAIN-20211129134323-20211129164323-00080.warc.gz\"}"}