AGSSLETR.m

AGSSLETR ; IHS/ASDS/EFG - push/pull SSN form letter ; 

 ;;7.1;PATIENT REGISTRATION;;AUG 25,2005

 ;

PUT ;put text into file

 D DT^DICRW

 S AGSITE=$P(^AUTTSITE(1,0),U)

 I '$D(^AGFAC(AGSITE)) W !!,"No SITE ... Exiting",*7,!! H 3 Q

 I $D(^AGFAC(AGSITE,1)) W !,"Letter already present .. not re-installed",! Q  ;---^

 F AGI=1:1 S X=$T(TEXT+AGI),X=$P(X,";;",2,99) Q:X["END OF TEXT"  D

 .S ^AGFAC(AGSITE,1,AGI,0)=X

 .W "."

 S AGI=AGI-1,^AGFAC(AGSITE,1,0)="^^"_AGI_"^"_AGI_"^"_DT_"^^^^"

 K AGI,AGX,AGSITE

 Q

TEXT ;TEXT TO FOLLOW

 ;;|TODAY|

 ;; 

 ;; 

 ;;                         DRAFT

 ;;                         DRAFT

 ;; 

 ;;The Indian Health Service (IHS) is working to improve the

 ;;quality of its hardcopy and automated medical records. An

 ;;important element of the medical record is the Social Security

 ;;Number (SSN). SSNs Help IHS to more quickly and accurately find

 ;;specific medical records and to unduplicate medical records. 

 ;;The result is better patient care since an SSN allows IHS and

 ;;tribal contract employees to keep a better record of a) a

 ;;patient's health history, b) what medicines a patient has taken

 ;;and should take, c) what health treatment a patient was given

 ;;and should get, d) patient allergies (if any) and e) follow-up

 ;;care if needed. A SSN also allows tribal contractors to more

 ;;effectively bill third parties ( e.g., insurance companies,

 ;;Medicare, and Medicaid) for care provided to patients with such

 ;;coverage.

 ;; 

 ;;In order to ensure that it has complete and accurate SSNs on

 ;;file, IHS uses information that is available from other

 ;;government organizations. The Social Security Administration

 ;;and Medicaid are IHS' principal sources of SSN information. The

 ;;SSN listed below was provided to IHS. We believe it is your SSN

 ;;since the name, date of birth, and sex associated with the SSN

 ;;match the information you provided to us.

 ;; 

 ;;Please review the SSN that is listed below and let us know if

 ;;it is incorrect. Thank you for helping IHS do a better job for

 ;;you.

 ;; 

 ;; 

 ;;                                 Sincerely,

 ;; 

 ;; 

 ;; 

 ;;                                 George Washington

 ;;                                 

 ;;                                 

 ;;                                 

 ;;                                 

 ;;                                 

 ;;END OF TEXT

AGSSLETR  ; IHS/ASDS/EFG - push/pull SSN form letter ; 

 +1       ;;7.1;PATIENT REGISTRATION;;AUG 25,2005

 +2       ;

PUT       ;put text into file

 +1        DO DT^DICRW

 +2        SET AGSITE=$PIECE(^AUTTSITE(1,0),U)

 +3        IF '$DATA(^AGFAC(AGSITE))

               WRITE !!,"No SITE ... Exiting",*7,!!

               HANG 3

               QUIT 

 +4       ;---^

           IF $DATA(^AGFAC(AGSITE,1))

               WRITE !,"Letter already present .. not re-installed",!

               QUIT 

 +5        FOR AGI=1:1

               SET X=$TEXT(TEXT+AGI)

               SET X=$PIECE(X,";;",2,99)

               IF X["END OF TEXT"

                   QUIT 

               Begin DoDot:1

 +6                SET ^AGFAC(AGSITE,1,AGI,0)=X

 +7                WRITE "."

               End DoDot:1

 +8        SET AGI=AGI-1

           SET ^AGFAC(AGSITE,1,0)="^^"_AGI_"^"_AGI_"^"_DT_"^^^^"

 +9        KILL AGI,AGX,AGSITE

 +10       QUIT 

TEXT      ;TEXT TO FOLLOW

 +1       ;;|TODAY|

 +2       ;; 

 +3       ;; 

 +4       ;;                         DRAFT

 +5       ;;                         DRAFT

 +6       ;; 

 +7       ;;The Indian Health Service (IHS) is working to improve the

 +8       ;;quality of its hardcopy and automated medical records. An

 +9       ;;important element of the medical record is the Social Security

 +10      ;;Number (SSN). SSNs Help IHS to more quickly and accurately find

 +11      ;;specific medical records and to unduplicate medical records. 

 +12      ;;The result is better patient care since an SSN allows IHS and

 +13      ;;tribal contract employees to keep a better record of a) a

 +14      ;;patient's health history, b) what medicines a patient has taken

 +15      ;;and should take, c) what health treatment a patient was given

 +16      ;;and should get, d) patient allergies (if any) and e) follow-up

 +17      ;;care if needed. A SSN also allows tribal contractors to more

 +18      ;;effectively bill third parties ( e.g., insurance companies,

 +19      ;;Medicare, and Medicaid) for care provided to patients with such

 +20      ;;coverage.

 +21      ;; 

 +22      ;;In order to ensure that it has complete and accurate SSNs on

 +23      ;;file, IHS uses information that is available from other

 +24      ;;government organizations. The Social Security Administration

 +25      ;;and Medicaid are IHS' principal sources of SSN information. The

 +26      ;;SSN listed below was provided to IHS. We believe it is your SSN

 +27      ;;since the name, date of birth, and sex associated with the SSN

 +28      ;;match the information you provided to us.

 +29      ;; 

 +30      ;;Please review the SSN that is listed below and let us know if

 +31      ;;it is incorrect. Thank you for helping IHS do a better job for

 +32      ;;you.

 +33      ;; 

 +34      ;; 

 +35      ;;                                 Sincerely,

 +36      ;; 

 +37      ;; 

 +38      ;; 

 +39      ;;                                 George Washington

 +40      ;;                                 

 +41      ;;                                 

 +42      ;;                                 

 +43      ;;                                 

 +44      ;;                                 

 +45      ;;END OF TEXT